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-  The  mutagenicity  testing  of  materials  in  compliance  with  federal 
regulations  '{4^requires  several  standards.  Among  these  are  the 
implementation  of  an  extensive  labelling  system.  A  computer-assisted 
system  has  been  established  and  described  ''(2X  Regulations  also 
require  storage  of  data.  A  computer  program  has  been  developed  that 
records  these  new  data  from  the  Sex-Linked  Recessive  Lethal  Assay  £3}, 
stores  it  in  permanent  computer  files,  and  allows  the  user  to  see  the 
data  by  means  of  a  ""print-out  copy'"  as  they  are  stored.  The  data  also 
can  be  retrieved  easily.  Other  programs  which  allow  for  a  formatted 
print-out  of  a  selected  data  set  will  also  be  described. 

X 

PROGRAM  DESCRIPTION 


The  program  DROSTOXDATA  (Appendix  A)  records  the  raw  data  and 
stores  it  in  the  file  DROSDATA.  It  records  the  number  of  failures, 
lethals  and  non-lethal  offspring  from  each  individual  numbered  male 
that  was  exposed  to  negative  controls,  positive  controls,  and  test 
compounds.  This  recording  is  done  for  each  of  the  four  broods.  In 
addition,  th»  -"'ogram  makes  a  provision  under  the  category  of  lethals 
so  that  the  user  may  designate  whether  lethals  are  single  or  multiple. 
For  each  individual  numbered  male  the  program  totals  the  number  of 
failures,  lethals  (single  or  multiple),  non-lethals,  number  of  tests 
performed,  and  the  mutation  frequency.  The  program  checks  the  total 
single  and  multiple  lethals  against  the  total  as  given  by  the 
individual  broods.  If  they  do  not  agree,  an  error  message  wil  appear 
and  the  user  may  re-enter  the  number  of  single  and  multiple  lethals. 
If  the  total  number  of  failures,  lethals,  and  non-icthals  for  a  given 
brood  is  greater  than  99,  only  the  brood  data  will  be  requested  to  be 
re-entered.  As  seen  in  the  sample  (Figure  1),  the  program  displays 
the  last  run  experiment  number  and  the  last  male  for  which  data  were 
recorded. 

The  program  requests  the  following  information  from  the  user 
(Figure  1): 

(1)  Select  if  more  data  from  the  same  run  are  to  be  entered  or  if 
data  for  a  new  run  are  to  be  entered. 


(2)  Specify  the  run  number  if  data  for  a  new  run  are  to  be 

entered. 

(3)  Enter  the  identification  number  for  each  male  fly  tested.  (The 
user  is  allowed  up  to  6  characters  of  any  type.) 

(4)  Enter  the  identification  of  the  compound  tested.  (The  user  is 
allowed  up  to  6  characters  of  any  type.). 

(5)  Enter  the  data  for  the  first  brood  as  to  the  number  of 
failures,  lethals,  and  non-lethals,  (If  anything  is  greater  than  99, 
an  error  message  will  be  displayed  and  the  user  must  re-enter  the  data 
for  that  brood.  This  procedure  is  repeated  for  broods  2  through  4). 

If  lethals  are  present: 

(6)  Enter  the  total  number  of  single  lethals. 

(7)  Then,  enter  the  total  number  of  multiple  lethals.  (The 

computer  program  will  check  the  total  number  of  single  and  multiple 
lethals  against  the  total  lethals  in  the  broods.  If  there  is  an 
error,  and  error  message  will  be  displayed  and  the  user  will  be 

requested  to  re-enter  the  number  of  singl  and  multiple  lethals.  When 
total  lethals  agree,  or  there  are  none,  the  computer  will  type:  TOTAL 
FAILURES,  TOTAL  LETHALS,  TOTAL  NON-LETHALS,  TOTAL  TESTS,  and  MUTATION 
RATE  for  data  that  have  been  entered. 

(8)  The  user  at  this  point  may  view  how  the  data  have  been 

entered.  If  any  of  these  data  are  incorrect  the  user  may  so  indicate 

and  return  to  Step  1 . 

(9)  The  user  may  then  decide  to  continue  by  entering  more  data; 
beginning  a  new  run  or  terminating  the  program. 

(10)  The  user  may  log  off  the  program  and  the  data  are  stored  in 
the  DROSDATA  file  or  the  user  may  create  a  rew  file  name  to  store  the 
data . 


( ■ 1 )  fhe  user  may  receive  a  print-out  of  the  data  in  their  "raw" 
form  (Figure  2),  by  giving  the  appropriate  , ommand  to  the  operating 
system . 

In  addition,  the  user  may  receive  a  formatted  print-out  of  the 
data  accumulated  by  DR'SSTOXDATA  by  executing  the  program  DROSRPT 
(Figure  3).  Chi-.  print-out  (Figure  4)  is  generated  from 

DROSRPT  md  its  associated  subroutines  RDDROSDATA ,  WRDROSDATA ,  and 
STRINO  (A;,;.no dices  B.  I,  D  ,.tu  F)  .. 

The  program,  DROSRPT,  requests  the  following  information  from  the 


user  (Figure  3): 

(1)  Type  in  the  date;  day,  month,  and  year  the  program  is  being 
executed. 

(2)  Type  in  the  name  of  the  file  to  be  printed  out. 

(3)  Type  in  the  appropriate  command  to  the  selected  operating 
system  name  to  receive  a  print-out  of  the  data  in  the  formatted  form 
(Figure  4). 


DISCUSSION 


By  utilizing  these  programs  and  the  subroutines  presented  in  this 
report,  the  raw  data  may  be  presented  in  a  form  which  is  easy  to  view 
and  which  saves  time  in  analysis. 


CONCLUSION 


None . 


RECOMMENDATION 


None. 
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SAMPLE  RUN  OF  X  DROSTOXDATA 


(Underlined  entries  are  sample  user  inputs) 


)  X  DROSTOXDATA 


The  computer  will  type: 

LETTERMAN  ARMY  INSTITUTE  OF  RESEARCH 
TOXICOLOGY  GROUP:  DROSOPHILA  DATA 

LAST  RUN  NUMBER  RECORDED  WAS:  37 
LAST  MALE  DATA  RECORDED  WAS:  T2-904 

WOULD  YOU  LIKE: 

TO  ENTER  MORE  DATA  FOR  THE  SAME  RUN  (  =  1)  ? 
TO  ENTER  DATA  FOR  A  NEW  RUN  (=2)  ? 

ENTER  CHOICE:  (1  or  2) 

2 

MALE  IDENTIFIER  (AN/6)  -  ?? 

T2-905 

TEST  COMPOUND  (AN/6)  =  ?? 

002MPT 


ENTER  FIRST  BROOD  DATA: 

FAILURES  (0-99).  LETHALS  (0-99).  NONLETHALS  (0-99): 
1 .0.24 

ENTER  SECOND  BROOD  DATA: 

FAILURES  (0-99),  LETHALS  (0-99),  NONLETHALS  (0-99): 
0,0,29 


ENTER  THIRD  BROOD  DATA:  FAILURES  (0-99),  LETHALS  0-99),  NONLETHALS 
(0-99)  : 

0,1 ,2U 

ENTER  FOURTH  BROOD  DATA:  FAILURES  (0-99),  LETHALS  (0-99),  NONLETHALS 
(0-99) : 

0,1 ,25 

HOW  MANY  LETHALS  WERE  SINGLE  ?  (0-99) 

1 


Figure  1. 


Sample  Run  of  X  DROSTOXDATA 

4 


HOW  MANY  LETHALS  WERE  MULTIPLE  ?  (0-99) 
0 


»••»*»»**»#•*»#**#. ERR0R»#.»#». 

TOTAL  LETHALS  DON’T  AGREE: 

TOTAL  LETHALS  FROM  BROODS  =  XX 
TOTAL  FROM  SINGLES  +  MULTIPLES  =  XX 

TOTAL  FAILURES:  TOTAL  LETHALS:  _1_ 

TOTAL  NONLETHALS:  98  TOTAL  TESTS:  99 
MUTATION  RATE  FOR  THESE  DATA: 1 .01 

37  T2  905  002MPT  0,1,24  0,0,25  0,1,24  0,0,25  1  101  98  99  1.01 

ARE  THE  DATA  ALL  RIGHT  ?  (  1=YES,  0=N0) 

J_ 

WOULD  YOU  LIKE.: 

TO  ENTER  MORE  DATA  FOR  THE  SAME  RUN  (=  1)? 

TO  ENTER  DATA  FOR  A  NEW  RUN  (=2)  ? 

TO  ENTER  NO  MORE  DATA  (=  3)  ? 

ENTER  CHOICE:  1,  2,  OR  3.  1 


) 


Figure  1.  Sample  Run  of  X  DROSTOXDATA 
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of  X  I’Rr'SToXDATA 


SAMPLE  RUN  OF  X  DROSRPT 


(Underlined  entries  are  sample  user  inputs) 


)  X  DROSRPT 


The  computer  will  type: 


ENTER  DATA  TO  APPEAR  ON  REPORT  (XXMONXX).  10Jun82 


The  computer  will  type: 


NAME  OF  FILE  TO  BE  REPORTED:  DROSDATA 


The  computer  will  type: 


REPORT  READY  IN  'SLRRPT' 


Figure  3*  Sample  Run  of  X  DROSRPT 
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Appendix  A 


C  —  PROGRAM  NAME:  DROSTOXDATA . FR 

C  —  WRITTEN  BY:  WARREN  W  JEDERBERG,  CUTANEOUS  HAZARDS 

C  —  INPUT:  AT  TIME  OF  EXECUTION 

C  —  FORMAT  FOR  INPUT:  DASHER  OR  CRT 
-  SPECIAL  EQUIPMENT:  NONE 

—  PURPOSE:  TO  STORE  DATA  FROM  THE  SEX- LINKED  RECESSIVE  LETHAL 

DROSOPHILA  TOXICOLOGICAL  TEST,  AND  ALLOW  CHECKING  THE  DATA 
BEFORE  IT  IS  STORED  IN  "DROSDATA"  FILE 

REAL  MR 

—  MR  =  MUTATION  RATE  FOR  THE  DATA 

INTEGER  MNUM,  SL,  TL,  TNL ,  TT,  ML,  CNAM,  TTL 
DIMENSION  CNAM(6) ,MNUM(6) 

-  MNUM  =  MALE  INDENTIFICATION 

-  SL  =  SINGLE  LETHALS 

—  ML  =  MULTIPLE  LETHALS 
—  TL  =  TOTAL  LETHALS 
—  TNL  =  TOTAL  NONLETHALS 
—  TT  =  TOTAL  TESTS 
—  CNAM  =  COMPOUND  INDENTIFIER 

INTEGER  BFF,BFL,BFNL,  BSF,BSL ,BSNL,  BTF,BTL,BTNL,  BLF,BLL,BLNL 

-  BFF  =  FIRST  BROOD  FAILURES 

—  BFL  =  FIRST  BROOD  LETHALS 
—  BFNL  =  FIRST  BROOD  NONLETHALS 

—  BSF  =  SECOND  BROOD  FAILURES 
—  BSL  =  SECOND  BROOD  LETHALS 
—  BSNL  =  SECOND  BROOD  NONLETHALS 

—  BTF  =  THIRD  BROOD  FAILURES 
— -  BTL  =  THIRD  BROOD  LETHALS 
—  BTNL  =  THIRD  BROOD  NONLETHALS 

—  BLF  =  FOURTH  BROOD  FAILURES 

—  BLL  =  FOURTH  BROOD  LETHALS 

— -  BLNL  =  FOURTH  BROOD  NONLETHALS 

***  OUTPUT  HEADER  *** 

I  99  WRITE  (10,1) 

1  FORMAT  ( /// , 1 0X , " LETTERMAN  ARMY  INSTITUTE  OF  RESEARCH" ,/, 1 0X , 

1 "TOXICOLOGY  TROUP:  DROSOPHILA  DATA”,//) 

C  — 

C  ***  GET  DATA  LAST  RECORDED  *** 

OPEN  2,  "LDATA" ,  ATT  =  "SIB" 

*  READ  (2,11)  NR,  MNUM 

CLOSE  2 


i 
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(Continued) 


11  FORMAT  (I4,1X,6A1) 

WRITE  (10,12)  NR,  MNUM 

12  FORMAT  (IX, "LAST  RUN  NUMBER  RECORDED  WAS: ",2X,I4,/, 

1 1 X, "LAST  MALE  DATA  RECORDED  WAS: " ,2X,6A1  ,//) 

C  — - 

C  ***  OPTIONS  (SAME  RUN  =  1 ,  NEW  RUN  =  2)  *** 

301  CONTINUE 

WRITE  (10,13) 

13  FORMAT  (10X,"  WOULD  YOU  LIKE: " ,/,1 5X , 

1 "TO  ENTER  MORE  DATA  FOR  THE  SAME  RUN  (=  l)  ?",/,15X, 

2 "TO  ENTER  DATA  FOR  A  NEW  RUN  (=  2)  ?",//) 

ACCEPT  "  ENTER  CHOICE:  1  OR  2  ",K 
IF  (K.NE.1 .AND.K.NE.2)  GO  TO  301 
IF  (K.NE.2)  GO  TO  101 

C - 

C  ***  GET  NEW  RUN  NUMBER  *** 

999  CONTINUE 
TYPE 

ACCEPT  "  NEW  RUN  NUMBER  ?  " ,NR 
IF  (NR.LE.9999)  GO  A)  101 
TYPE 

TYPE  "  ++++++++++ERROR++++++++++" 

TYPE  "  RUN  NUMBER  >  9999" 

GO  TO  999 
101  CONTINUE 
C - 

C  ***  GET  MALE  IDENTIFIER  *** 

TYPE 

TYPE  "  MALE  IDENTIFIER  (AN/6)=  ??" 

READ  (11,8)  (MNUM(K),  K=1 ,6) 

8  FORMAT  (6A1 ) 

C 

C  ***  GET  COMPOUND  IDENTIFIER  *** 

TYPE 

TYPE  "  TEST  COMPOUND  (AN/6)=  ??" 

READ  (11,7)  (CNAM(K),  K=1 ,6) 

7  FORMAT  (6A1) 

C  — - 

c  ***  ENTER  BROOD  DATA 

2  FORMAT  (/."ENTER  FIRST  BROOD  DATA:") 

3  FORMAT  (/."ENTER  SECOND  BROOD  DATA:") 

4  FORMAT  (/."ENTER  THIRD  BROOD  DATA:") 

5  FORMAT  (/."ENTER  FOURTH  BROOD  DATA:") 

6  FORMAT  ("FAILURES  (0-99),  LETHALS  (0-99),  NONLETHALS  (0-99):") 

C 
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1 


c - 

10 


c  — 
c  — 
20 


c  — 
c 

30 


c 

c  — 

40 


c 

c  *** 


50 


c  — - 
c  — 
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(Continued) 

ENTER  FIRST  BROOD  DATA 
WRITE  (10,2) 

WRITE  (10,6) 

ACCEPT  BFF,BFL,BFNL 

IF  (BFF.GT.99.0R.BFL.GT.99.0R.BFNL.GT.99)  GO  TO  10 

ENTER  SECOND  BROOD  DATA 
WRITE  (10,3) 

WRITE  (10,6) 

ACCEPT  BSF,BSL,BSNL 

IF  (BSF.GT.99 .0R.BSL.GT.99 .0R.BSNL.GT.99  )  GO  TO  20 

ENTER  THIRD  BROOD  DATA 
WRITE  (10,4) 

WRITE  (10,6) 

ACCEPT  ,  BTF, BTL ,BTNL 

IF  (BTF.GT.99.OR.BTL.GT.99.OR.BTNL.GT.99)  GO  TO  30 

ENTER  FOURTH  BROOD  DATA 
WRITE  (10,5) 

WRITE  (10,6) 

ACCEPT  BLF,BLL,BLNL 

IF  (BLF.GT.99.0R.BLL.GT.99.0R.BLNL.GT.99)  GO  TO  40 

CALCULATE  TOTALS  *** 

ML  =  0.00 
SL  =  0.00 

TL  =  BFL  +  BSL  +  BTL  +  BLL 
IF  (TL.LE.0.1 )  GO  TO  150 
Tit  PE 
TYPE 

TYPE  "  HOW  MANY  LET HALS  WERE  SINGLE  ?  (0-99)" 
ACCEPT  ,  SI- 

TYPE  "  HOW  MANY  LET HALS  WERE  MULTIPLE  ?  (0-99)" 
ACCEPT  , ML 


CHECK  TOTAL  LETHALS  FROM  BROODS  ANI)  FROM  QUERY 
TTL  -  SL  +  ML 


IF  (AB 

*.)(flTI/— Tjj)  •  Lhl  •  (j  . 

!  )  GO 

TO  1  yO 

TYPS 
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*********** 
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150  CONTINUE 

TNL  =  BFNL  +  BSNL  +  BTNL  +  BLNL 
TT  =  TNL  +  TL 
IF  (TT.LE.IOO)  GO  TO  60 

ipyp  E  " ***************** ERROR*************#*" 

TYPE  "TOTAL  TESTS  ARE  MORE  THAN  100,  RE-ENTER  ALL  DATA" 
GO  TO  99 
60  CONTINUE 

MR  =  TL*( 100.00/TT) 

TF  =  BFF  +  BSF  +  BTF  +  BLF 


***  CHECK  DATA  **** 

-  DISPLAY  CALCULATED  DATA  *** 

WRITE  (10,70)  TF,TL,TNL,TT,MR 
70  FORMAT  (/."TOTAL  FAILURES: " ,1X , I3.2X, "TOTAL  LETHALS: " ,1X, 13, 
1 "TOTAL  N0NLETHALS:",1X, 13, 2X, "TOTAL  TESTS: " ,1 X, 13,/ , 

2 "MUTATION  RATE  FOR  THESE  DATA: " ,2X,F6.2) 

C  —  DATA  AS  WILL  BE  RECORDED 
WRITE  (10,80) 

80  FORMAT  (//."DATA  WILL  BE  RECORDED  AS:") 

WRITE  (10,100)  NR, MNUM.CNAM, BFF, BFL, BFNL, BSF, BSL, BSNL, 

1 BTF , BTL , BTNL , BLF , BLL , BLNL , TF , SL , ML , TL , TNL , TT ,MR 
TYPE 

81  TYPE  "ARE  THE  DATA  ALL  RIGHT  ?  ( 1 =YES , 0=N0 ) " 

ACCEPT  "*",I 

IF  (I.NE.0.AND.I.NE.1 )  GO  TO  81 
IF  (I.NE.1 )  GO  TO  99 

C - 

C  ***  STORE  DATA  IN  DROSDATA  *** 

OPEN  1,  "DROSDATA",  ATT  =  "SA" 

WRITE  (1,100)  NR, MNUM.CNAM, BFF, BFL, BFNL, BSF, BSL, BSNL, 

1 BTF , BTL , BTNL , BLF , BLL , BLNL , TF , SL , ML , TL , TNL , TT , MR 
100  FORMAT  (I4.1X.6A1 ,1X,6A1 ,4(1X,3I2),1X,I2,1X,3I2, 

1 2(1 X, 13) ,1 X, F6 . 2) 

CLOSE  1 

C  — 

C  ***  RECORD  LAST  RUN  NUMBER  AND  MALE  IN  LDATA 
OPEN  2,  "LDATA",  ATT  =  "SO" 

WRITE  (2,11  )  NR,  MNUM 
CLOSE  2 

C  — 
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C  ***  OPTION  FOR  MORE  DATA  OR  LOG  OFF  *** 

200  CONTINUE 

WRITE  (10,14) 

14  FORMAT  (// , 1 0X, "WOULD  YOU  LIKE: " ,/ , 1 5X , 

1 "TO  ENTER  MORE  DATA  FOR  THE  SAME  RUN  (=  l)  ?",/, 15X, 
2 "TO  ENTER  DATA  FOR  A  NEW  RUN  (=  2)  ?”,/,15X, 

3 "TO  ENTER  NO  MORE  DATA  (=  3)  ?”,/) 

ACCEPT  "  ENTER  CHOICE:  1,  2,  OR  3  ",K 
IF  (K.NE.1 .AND.K.NE.2.AND.K.NE.3)  GO  TO  200 
IF  (K.NE.2.AND.K.NE.3)  GO  TO  101 
IF  (K.NE.3)  GO  TO  999 

C  — 

END 
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C  ***  PROGRAM  NAME:  DROSRPT.PR 

C  ***  WRITTEN  BY:  WARREN  JEDERBERG 

C  ***  PURPOSE:  TO  GENERATE  A  REPORT  OF  THE 

C  ***  RAW  DATA  AS  STORED  IN  ’ DROSDATA ' 

INTEGER  NR ,MNUM, CNAM , BFF , BFL , BFNL , BSF , BSL , BSNL , 

1 BTF , BTL ,  BTNL ,  BLF ,  BLL ,  BLNL , TF , SL , ML , TL ,  TNI. ,  TT ,  SFN  AM 

REAL  MR 

COMMON /DREC /NR , MNUM( 6 ) , CN AM ( 6 ) , BFF , BFL , BFNL , BSF , BSL , BSNL , 
1 BTF , BTL , BTNL , BLF , BLL , BLNL , TF , SL ,ML , TL , TNL , TT , MR 

LOGICAL  EOF 


DIMENSION  NATE(5),SFNAM(20) 

C  -  GET  REPORT  DATE 

TYPE  "Enter  Date  to  appear  on  report:  (XX-MON-XX)" 
READ  (11,400)  (NATE(l) , 1=1 ,5) 

400  FORMAT  (5A2) 

C  —  INITIALIZE  PAGE  AND  LINE 
PAGE  =  0 
LINE  =  0 


C  —  INITIALIZE  EXIF 
EOF  =  .FALSE. 

C  —  GET  AND  OPEN  FILE  TO  BE  REPORTED 
WRITE  (10,500) 

500  FORMAT  (/"NAME  OF  FILE  TO  BE  REPORTED:  ",Z) 

READ  (11 ,510)  SFNAM 
510  FORMAT  (20A2) 

CALL  STRING  (SFNAM, 20) 

OPEN  1,  SFNAM,  ATT=’’SIB" , ERR=100 
READ  (1,1) 

1  FORMAT  (/) 

GO  TO  120 
100  CONTINUE 

WRITE  (10,6)  SFNAM 

6  FORMAT  (//,"****  ERROR  ****  ERROR  ****  ERROR  ****",/, 
1 4X , "FILE  " ,20A2 , "  NOT  FOUND  .  .  .") 

STOP 


Appendix  B. 
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C  -  DELETE  OLD  REPORT 

DELETE  "SLRRPT" 

C  -  OPEN  REPORT  FILE  SLRRPT 

120  OPEN  2,  "SLRRPT",  ATT  =  "SOP" 

C  —  READ  DATA  RECORD 
140  CALL  RDDROSDATA  (EOF) 

IF( EOF)  GO  TO  220 

C  —  REPORT  DATA 

CALL  WRDROSDATA  (LINE, PAGE, NATE(l ) )  • 
GO  TO  140 

C  —  EOF  DETECTED 
220  CLOSE  1 

IF  (LINE. NE.O. OR. PAGE. NE.O)  GO  TO  250 
TYPE 

TYPE  "  EMPTY  DATA  FILE" 

CLOSE  2 
STOP 

250  CLOSE  2 
TYPE 

TYPE  "  REPORT  READY  IN  'SLRRPT'" 

END 
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COMPILER  NOSTACK 

C  ***  PROGRAM  NAME:  RDDROSDATA.FR 

C  ***  WRITTEN  BY:  WARREN  JEDERBERG 

C  ***  PURPOSE:  TO  READ  DATA  FOR  MAKING  REPORTS 

C  ***  FOR  THE  SLRL- DROSOPHILA  ASSAY 

SUBROUTINE  RDDROSDATA  (EOF) 

CO  MMON /DREC /NR , MNUM ( 6 ) , CN  AM ( 6 ) , BFF , BFL , BFNL , BSF  f  BSL , BSN  L , 

1 BTF ,  BTL , BTNL , BLF , BLL , BLNL , TF , SL , ML , TL , TNL , TT , MR 

INTEGER  NR , MNUM, CN AM , BFF , BFL , BFNL , BSF , BSL , BSNL , BTF , BTL , BTNL , 

1 BLF , BLL , BLNL , TF , SL , ML , TL , TNL , TT 

REAL  MR 

LOGICAL  EOF 

READ  (1,100,  END=  120)  NR, MNUM, CNAM, BFF, BFL, BFNL, BSF, BSL, BSNL, 
1 BTF , BTL , BTNL , BLF , BLL , BLNL , TF , SL , ML , TL , TNL , TT , MR 

100  FORMAT ( 14, 1X.6A1 ,1X,6A1 ,4(lX,3I2) , IX, 12, IX, 312, 
12(1X,I3),1X,F6.2) 

RETURN 

120  EOF  =  .TRUE. 

RETURN 

END 
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C  ***  PROGRAM  NAME:  WRDROSDATA. FR 

C  ***  WRITTEN  BY:  WARREN  JEDERBERG 

C  ***  PURPOSE:  THIS  SUBROUTINE  HANDLES  PAGING  AND 

C  ***  OUTPUTTING  OF  RECORDS  FOR  DROSRPT. 

SUBROUTINE  WRDROSDATA  ( LINE , PAGE , IDATE) 

INTEGER  NR , MNUM , CNAM , BFF , BFL , BFNL, BSF , BSL , BSNL , BTF , BTL , BTNL, 
1  BLF, BLL,BLNL,TF, SL,ML,TL,TNL,TT 


DIMENSION  IDATE(5) 
REAL  MR 


COMMON /DREC/NR,MNUM( 6) ,CNAM(6) , BFF, BFL, BFNL, BSF, BSL, BSNL, BTF, BTL, 
1 BTNL , BLF , BLL , BLNL , TF , SL , ML , TL , TNL , TT , MR 
IF  (LINE.GT.O.AND.LINE.LT. 54)  GO  TO  120 


PAGE=PAGE  +  1 

WRITE  (2,100)  (iDATE(l) ,1=1 ,5) >  PAGE 

100  FORMAT  (l HI ,42X , "LETTERMAN  ARMY  INSTITUTE  OF  RESEARCH", 

1 /, 59 X, "SEX- LINKED  RECESSIVE  LETHAL  DROSOPHILA  ASSAY", 

2/ , 50X , " (RAW  DATA  PRINT-OUT)”, 

3// , "  DATE : " , 2X , 5A2 ,94X , "PAGE: ",  1 X , 13 , 

4//.27X, "BROOD  #1 :  BROOD  #2:  BROOD  #3:  BROOD  #4: " ,9X, 

5 "SUMMARY  TOTALS" ,4X , "TOTAL" , 4X , "MUTATION" , / , 

61  H+, 26X, 4(9 ("_"),4X),3X,  19 ("_"), 

7/,”  RUN :",2X, "MALE: ",2X, "COMPOUND :",4X, 4 ("F:  L:  NL:",4X),3X, 
82X , "TF  SL  ML  TL  TNL" ,3X, "TESTS: " ,3X, "RATE  {%)") 

LINE  =  S 


120  WRITE  (2,140)  NK , MNUM, CNAM . BFF, BFL, BFNL, BSF, BSL , BSNL , 

1  BTF ,  BTL ,  BTNL ,  BLF ,  P. LI. ,  BLNL ,  T F ,  SL ,  ML .  TL ,  TNL ,  TT ,  MR 

140  FORMAT  { / ,  I4,3X,6A1 , 1 X , 6A 1 , 7X , 4(3(  IP , IX ) ,4X) , 5X ,4( 12 , 1 X ) , 13 , 
1  4 X ,  H,nX,F6.2) 

LINE  "  LINE  -  2 


TF  LINE. GE. 5 4 ;  GO  ”  •  ISO 


ISO  WRITE  (2,160 
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160  FORMAT  (/,"  EXPLANATORY  NOTES:  F=FAILURES ,  L=LETHALS,  NL=N0N LETHALS" , / 
1 20X, "TF-TOTAL  FAILURES,  SL=SINGLE  LETHALS,  ML=MULTIPLE  LETHALS,  TL=", 

2 "TOTAL  LETHALS , " , / , 20X , "TNL=T0TAL  NON LETHALS" ,/) 


LINE=0 

RETURN 
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—  TO  CONVERT  FILE  NAMES  TO  USE  IN  OPEN  STATEMENTS 
SUBROUTINE  STRING(LINE,LLEN) 

COMPILER  STATIC 
DIMENSION  LINE  (LLEN) 

DO  100  1=1, LLEN 

IF  (LINE(I).EQ."  ")  LINE( I )=0 

IF  (FLD(LINE(I),9,16).EQ.FLD("  " ,9 , 1 6 ))FLD(LINE( I ) ,9 , 16 )=0 

100  CONTINUE 
RETURN 


